home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
tbbs
/
prgsourc.zip
/
HOMES.ZIP
/
TAG.PRG
< prev
next >
Wrap
Text File
|
1995-12-28
|
883b
|
31 lines
PROCEDURE tag
PARAMETERS tg
*********************************************************
* Returns 0 if tag array full, 1 if tagged, 2 if untagged
*********************************************************
fnd=aScan(tarray,pic1) && Already in tarray?
IF fnd=0 && No - then tag it
fn = aScan(tarray,"EMPTY",51,1)
IF fn = 51
SET COLOR TO W+/N
@ 19,5 SAY "Maximum number of tagged listings is 50."
key=InKey(4)
DO cls WITH 19,5,19,50
tg = 0
RETURN
ENDIF
dummy=aIns(tarray,1)
tarray[1] = pic1
SET COLOR TO W+/R
@ 1,8 SAY "Tagged "+tarray[1]+" "
tg=1
ELSE && Yes - then untag it
SET COLOR TO W+/R
@ 1,8 SAY "Untagged "+tarray[fnd]
dummy=aDel(tarray,fnd)
tg=2
ENDIF
RETURN